PROGRAM comp;

  CONST MAX = 10;

  TYPE Date = RECORD 
      day, month, year: INTEGER;
    END;
    Student = RECORD 
      id: INTEGER;
      name: STRING;
      age: INTEGER;
      dateOfBirth: Date;
      marks: ARRAY [1..MAX] OF INTEGER;
      nMarks: INTEGER;    (* number of marks*)
    END;

  VAR s1: Student;
    students: ARRAY [1..MAX] OF Student;
    nStudents: INTEGER;

BEGIN 
  s1.id := 10034;
  s1.name := 'test';
  s1.age := 19;
  s1.dateOfBirth.day := 10;
  s1.dateOfBirth.month := 6;
  s1.dateOfBirth.year := 1990;

  students[1].marks[2] := 3;

  WriteLn(s1.id);
  ReadLn();
END.